From: Andreas Schwab <schwab@suse.de>
Date: Sat, 24 Apr 2004 18:17:04 +0000 (+0000)
Subject: (diff): Set default-directory in diff buffer.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22959
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=81210eada05ead91e73bd7bd47662e625c760667;p=emacs.git

(diff): Set default-directory in diff buffer.
---

diff --git a/lisp/diff.el b/lisp/diff.el
index 231130db212..76b1b5e60a7 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -111,6 +111,7 @@ With prefix arg, prompt for diff switches."
 		       ,(shell-quote-argument (or new-alt new)))
 		     " "))
 	 (buf (get-buffer-create "*Diff*"))
+	 (thisdir default-directory)
 	 proc)
     (save-excursion
       (display-buffer buf)
@@ -125,6 +126,7 @@ With prefix arg, prompt for diff switches."
 	      (diff ',old ',new ',switches ',no-async)))
       (set (make-local-variable 'diff-old-temp-file) old-alt)
       (set (make-local-variable 'diff-new-temp-file) new-alt)
+      (setq default-directory thisdir)
       (insert command "\n")
       (if (and (not no-async) (fboundp 'start-process))
 	  (progn